object Player: TPlayer Left = 193 Top = 5 BorderStyle = bsSingle Caption = 'Puzzle Play' ClientHeight = 418 ClientWidth = 632 Font.Color = clBlack Font.Height = -17 Font.Name = 'Arial' Font.Style = [] Menu = MainMenu1 Position = poDefault Scaled = False OnCreate = FormCreate OnMouseDown = FormMouseDown OnMouseMove = FormMouseMove OnMouseUp = FormMouseUp OnPaint = FormPaint OnShow = FormShow PixelsPerInch = 96 TextHeight = 19 object CurrentTime: TPanel Left = 16 Top = 383 Width = 73 Height = 25 BevelInner = bvLowered Caption = '00:00:00' Font.Color = clBlack Font.Height = -15 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 0 end object TitlePanel: TPanel Left = 12 Top = 8 Width = 253 Height = 29 BevelInner = bvLowered BevelWidth = 2 Font.Color = clBlack Font.Height = -17 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 1 end object WordListPanel: TCanvasPanel Left = 344 Top = 8 Width = 281 Height = 401 BevelInner = bvLowered BevelWidth = 2 TabOrder = 2 object WordListLabel: TLabel Left = 4 Top = 4 Width = 273 Height = 21 Align = alTop Alignment = taCenter Caption = 'Word List' Font.Color = clBlack Font.Height = -18 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end end object MainMenu1: TMainMenu Left = 120 object File1: TMenuItem Caption = '&File' ShortCut = 0 object MenuPrint: TMenuItem Caption = '&Print' ShortCut = 16464 OnClick = MenuPrintClick end object MenuSendAscii: TMenuItem Caption = '&Send To Ascii' ShortCut = 16467 OnClick = MenuSendAsciiClick end object N3: TMenuItem Caption = '-' ShortCut = 0 end object Exit1: TMenuItem Caption = 'E&xit' ShortCut = 16472 OnClick = Exit1Click end end object Options1: TMenuItem Caption = '&Options' ShortCut = 0 object MenuSound: TMenuItem Caption = '&Use Sound' ShortCut = 16469 OnClick = MenuSoundClick end object MenuTimer: TMenuItem Caption = 'Use &Timer' ShortCut = 16468 OnClick = MenuTimerClick end object MenuGrid: TMenuItem Caption = 'Use &Grid' ShortCut = 16455 OnClick = MenuGridClick end object MenuUpper: TMenuItem Caption = 'Use Upper &Case' ShortCut = 16451 OnClick = MenuUpperClick end object N4: TMenuItem Caption = '-' ShortCut = 0 end object MenuCircle: TMenuItem Caption = 'Circle &Answer' ShortCut = 16449 OnClick = MenuCircleClick end object MenuHighlight: TMenuItem Caption = '&Highlight Answer' ShortCut = 16456 OnClick = MenuHighlightClick end object N1: TMenuItem Caption = '-' ShortCut = 0 end object MenuPuzzleFont: TMenuItem Caption = 'Puzzle &Font' ShortCut = 16454 OnClick = MenuPuzzleFontClick end object MenuWordListFont: TMenuItem Caption = '&Word List Font' ShortCut = 16471 OnClick = MenuWordListFontClick end object N2: TMenuItem Caption = '-' ShortCut = 0 end object MenuHint: TMenuItem Caption = 'Hint &Mode' ShortCut = 16461 OnClick = MenuHintClick end object MenuSelectSound: TMenuItem Caption = '&Select Sounds' ShortCut = 16453 OnClick = MenuSelectSoundClick end end object MenuColor: TMenuItem Caption = '&Color' ShortCut = 0 object MenuTexture: TMenuItem Caption = '&Background Texture' ShortCut = 16450 OnClick = MenuTextureClick end object N5: TMenuItem Caption = '-' ShortCut = 0 end object MenuBackground: TMenuItem Caption = 'B&ackground' ShortCut = 16496 OnClick = MenuBackgroundClick end object MenuUnfound: TMenuItem Caption = '&Unfound Words' ShortCut = 16497 OnClick = MenuUnfoundClick end object MenuFound: TMenuItem Caption = '&Found Words' ShortCut = 16498 OnClick = MenuFoundClick end object MenuPuzzleBack: TMenuItem Caption = '&Puzzle Background' ShortCut = 16499 OnClick = MenuPuzzleBackClick end object MenuPuzzleLetters: TMenuItem Caption = 'Pu&zzle Letters' ShortCut = 16500 OnClick = MenuPuzzleLettersClick end object MenuHighlighted: TMenuItem Caption = '&Highlighted Letters' ShortCut = 16501 OnClick = MenuHighlightedClick end object MenuTitles: TMenuItem Caption = '&Titles' ShortCut = 16502 OnClick = MenuTitlesClick end object MenuTimerColor: TMenuItem Caption = 'T&imer' ShortCut = 16503 OnClick = MenuTimerColorClick end end object MenuHelp: TMenuItem Caption = '&Help' ShortCut = 0 OnClick = MenuHelpClick end end object Timer1: TTimer OnTimer = Timer1Timer Left = 52 end object HintTimer: TTimer OnTimer = HintTimerTimer Left = 88 end object MyFontDialog: TFontDialog Font.Color = clWindowText Font.Height = -17 Font.Name = 'System' Font.Style = [] MinFontSize = 0 MaxFontSize = 0 Left = 20 end object MyColorDialog: TColorDialog Ctl3D = True Left = 88 Top = 104 end end